home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_pdfwr.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  27.0 KB  |  875 lines
  1. %    Copyright (C) 1996, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_pdfwr.ps 8954 2008-08-08 04:22:38Z ray $
  17. % PDF writer additions to systemdict.
  18.  
  19. % This file should be included iff the pdfwrite "device" is included
  20. % in the executable.
  21.  
  22. % ---------------- Predefined configurations ---------------- %
  23.  
  24. % These correspond to the 4 predefined settings in Acrobat Distiller 5,
  25. % plus a "default" setting that doesn't downsample images.
  26.  
  27. /.a2112 [2 1 1 2] readonly def
  28. /.a1111 [1 1 1 1] readonly def
  29. /.standardfonts [
  30.   /Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique
  31.   /Helvetica /Helvetica-Bold /Helvetica-Oblique /Helvetica-BoldOblique
  32.   /Times-Roman /Times-Bold /Times-Italic /Times-BoldItalic
  33.   /Symbol /ZapfDingbats
  34. ] readonly def
  35.  
  36. % Parameters common to all non-default configurations.
  37. % Note that the default configuration overrides a few of these.
  38. /.defaultImageDict mark
  39.   /QFactor 0.9 /Blend 1
  40.   /HSamples .a2112 /VSamples .a2112
  41. .dicttomark readonly def
  42. /.distillercommon mark
  43.   /AlwaysEmbed []
  44.   /AntiAliasColorImages false
  45.   /AntiAliasGrayImages false
  46.   /AntiAliasMonoImages false
  47.   /ASCII85EncodePages false
  48.   /AutoFilterColorImages true
  49.   /AutoFilterGrayImages true
  50.   /AutoPositionEPSFiles true
  51.   /Binding /Left
  52.   /CalCMYKProfile (None)        % (U.S. Web Coated (SWOP) v2)
  53.   /CalGrayProfile (None)        % (Dot Gain 20%)  
  54.   /CalRGBProfile (None)            % (sRGB IEC61966-2.1)
  55.   /ColorImageDepth -1
  56.   /ColorImageDict .defaultImageDict
  57.   /ColorImageDownsampleThreshold 1.5
  58.   /ColorImageFilter /DCTEncode
  59.   /CompressPages true
  60.   /ConvertImagesToIndexed true
  61.   /DefaultRenderingIntent /Default
  62.   /DetectBlends true
  63.   /DownsampleColorImages true
  64.   /DownsampleGrayImages true
  65.   /DownsampleMonoImages true
  66.   /EmitDSCWarnings false
  67.   /EncodeColorImages true
  68.   /EncodeGrayImages true
  69.   /EncodeMonoImages true
  70.   /EndPage -1
  71.   /GrayImageDepth -1
  72.   /GrayImageDict .defaultImageDict
  73.   /GrayImageDownsampleThreshold 1.5
  74.   /GrayImageFilter /DCTEncode
  75.   /ImageMemory 524288
  76.   /LockDistillerParams false
  77.   /MaxSubsetPct 100
  78.   /MonoImageDepth -1
  79.   /MonoImageDict mark
  80.     /K -1
  81.   .dicttomark readonly
  82.   /MonoImageDownsampleThreshold 1.5
  83.   /MonoImageFilter /CCITTFaxEncode
  84.   /OffOptimizations 0
  85.   /OPM 1
  86.   /Optimize true
  87.   /ParseDSCComments true
  88.   /ParseDSCCommentsForDocInfo true
  89.   /PDFXTrimBoxToMediaBoxOffset [0 0 0 0]
  90.   /PDFXSetBleedBoxToMediaBox true
  91.   /PDFXBleedBoxToTrimBoxOffset [0 0 0 0]
  92.   /PreserveCopyPage true
  93.   /PreserveHalftoneInfo false
  94.   /sRGBProfile (None)            % (sRGB IEC61966-2.1)
  95.   /StartPage 1
  96.   /SubsetFonts true
  97.   /TransferFunctionInfo /Preserve
  98.   /UseFlateCompression true
  99.   /UsePrologue false
  100. .dicttomark readonly def
  101.  
  102. /.distillersettings mark
  103.  
  104. /default mark
  105.   /AutoRotatePages /PageByPage
  106.   /CannotEmbedFontPolicy /Warning
  107.   /ColorACSImageDict .defaultImageDict
  108.   /ColorConversionStrategy /LeaveColorUnchanged
  109. %  /ColorImageDownsampleType
  110. %  /ColorImageResolution
  111. %  /CompatibilityLevel
  112.   /CreateJobTicket false
  113.   /DoThumbnails false
  114.   /DownsampleColorImages false        % override
  115.   /DownsampleGrayImages false        % override
  116.   /DownsampleMonoImages false        % override
  117.   /EmbedAllFonts true
  118.   /GrayACSImageDict .defaultImageDict
  119. %  /GrayImageDownsampleType
  120. %  /GrayImageResolution
  121. %  /MonoImageDownsampleType
  122. %  /MonoImageResolution
  123.   /NeverEmbed .standardfonts
  124.   /Optimize false            % override
  125.   /PreserveEPSInfo true
  126.   /PreserveOPIComments true
  127.   /PreserveOverprintSettings true
  128.   /UCRandBGInfo /Preserve
  129. .dicttomark readonly
  130.  
  131. /.screenACSImageDict mark
  132.   /QFactor 0.76 /Blend 1 /ColorTransform 1
  133.   /HSamples .a2112 /VSamples .a2112
  134. .dicttomark readonly def
  135. /screen mark
  136.   /AutoRotatePages /PageByPage
  137. %  /CalGrayProfile (None)
  138.   /CannotEmbedFontPolicy /Warning
  139.   /ColorACSImageDict .screenACSImageDict
  140.   /ColorConversionStrategy /sRGB
  141.   /ColorImageDownsampleType /Average
  142.   /ColorImageResolution 72
  143.   /CompatibilityLevel 1.3
  144.   /CreateJobTicket false
  145.   /DoThumbnails false
  146.   /EmbedAllFonts true
  147.   /GrayACSImageDict .screenACSImageDict
  148.   /GrayImageDownsampleType /Average
  149.   /GrayImageResolution 72
  150.   /MonoImageDownsampleType /Average
  151.   /MonoImageResolution 300
  152.   /NeverEmbed .standardfonts
  153.   /PreserveEPSInfo false
  154.   /PreserveOPIComments false
  155.   /PreserveOverprintSettings false
  156.   /UCRandBGInfo /Remove
  157. .dicttomark readonly
  158.  
  159. /ebook mark
  160.   /AutoRotatePages /All
  161. %  /CalGrayProfile (None)
  162.   /CannotEmbedFontPolicy /Warning
  163.   /ColorACSImageDict .screenACSImageDict
  164.   /ColorConversionStrategy /sRGB
  165.   /ColorImageDownsampleType /Bicubic
  166.   /ColorImageResolution 150
  167.   /CompatibilityLevel 1.4
  168.   /CreateJobTicket false
  169.   /DoThumbnails false
  170.   /EmbedAllFonts true
  171.   /GrayACSImageDict .screenACSImageDict
  172.   /GrayImageDownsampleType /Bicubic
  173.   /GrayImageResolution 150
  174.   /MonoImageDownsampleType /Bicubic
  175.   /MonoImageResolution 300
  176.   /NeverEmbed .standardfonts
  177.   /PreserveEPSInfo false
  178.   /PreserveOPIComments false
  179.   /PreserveOverprintSettings false
  180.   /UCRandBGInfo /Remove
  181. .dicttomark readonly
  182.  
  183. /.printerACSImageDict mark
  184.   /QFactor 0.4 /Blend 1 /ColorTransform 1
  185.   /HSamples .a1111 /VSamples .a1111
  186. .dicttomark readonly def
  187. /printer mark
  188.   /AutoRotatePages /None
  189. %  /CalGrayProfile (None)
  190.   /CannotEmbedFontPolicy /Warning
  191.   /ColorACSImageDict .printerACSImageDict
  192.   /ColorConversionStrategy /UseDeviceIndependentColor
  193.   /ColorImageDownsampleType /Bicubic
  194.   /ColorImageResolution 300
  195.   /CompatibilityLevel 1.4
  196.   /CreateJobTicket true
  197.   /DoThumbnails false
  198.   /EmbedAllFonts true
  199.   /GrayACSImageDict .printerACSImageDict
  200.   /GrayImageDownsampleType /Bicubic
  201.   /GrayImageResolution 300
  202.   /MonoImageDownsampleType /Bicubic
  203.   /MonoImageResolution 1200
  204.   /NeverEmbed []
  205.   /PreserveEPSInfo true
  206.   /PreserveOPIComments true
  207.   /PreserveOverprintSettings true
  208.   /UCRandBGInfo /Preserve
  209. .dicttomark readonly
  210.  
  211. /.prepressACSImageDict mark
  212.   /QFactor 0.15 /Blend 1 /ColorTransform 1
  213.   /HSamples .a1111 /VSamples .a1111
  214. .dicttomark readonly def
  215. /prepress mark
  216.   /AutoRotatePages /None
  217.   /CannotEmbedFontPolicy /Error
  218.   /ColorACSImageDict .prepressACSImageDict
  219.   /ColorConversionStrategy /LeaveColorUnchanged
  220.   /ColorImageDownsampleType /Bicubic
  221.   /ColorImageResolution 300
  222.   /CompatibilityLevel 1.4
  223.   /CreateJobTicket true
  224.   /DoThumbnails true
  225.   /EmbedAllFonts true
  226.   /GrayACSImageDict .prepressACSImageDict
  227.   /GrayImageDownsampleType /Bicubic
  228.   /GrayImageResolution 300
  229.   /MonoImageDownsampleType /Bicubic
  230.   /MonoImageResolution 1200
  231.   /NeverEmbed []
  232.   /PreserveEPSInfo true
  233.   /PreserveOPIComments true
  234.   /PreserveOverprintSettings true
  235.   /UCRandBGInfo /Preserve
  236. .dicttomark readonly
  237.  
  238. % Define distiller settings for the ps2write device and for the ps2ps2 script :
  239. /PSL2Printer mark
  240.   /AutoRotatePages /None
  241.   /CannotEmbedFontPolicy /Error
  242.   /ColorACSImageDict .prepressACSImageDict
  243.   /ColorConversionStrategy /LeaveColorUnchanged
  244.   /ColorImageDownsampleType /Bicubic
  245.   /ColorImageResolution 600
  246.   /CompatibilityLevel 1.2 % Always 1.2 with ps2write.
  247.   % /CreateJobTicket true % Not sure
  248.   /DoThumbnails false
  249.   /EmbedAllFonts true
  250.   /GrayACSImageDict .prepressACSImageDict
  251.   /GrayImageDownsampleType /Bicubic
  252.   /GrayImageResolution 600
  253.   /MonoImageDownsampleType /Bicubic
  254.   /MonoImageResolution 1200
  255.   /NeverEmbed []
  256.   /PreserveEPSInfo true
  257.   /PreserveOPIComments true
  258.   /PreserveOverprintSettings true
  259.   /UCRandBGInfo /Preserve
  260.  
  261.   /PreserveHalftoneInfo true 
  262.   /TransferFunctionInfo /Preserve 
  263.   /MaxViewerMemorySize 8000000 
  264.   /CompressPages false 
  265.   /CompressFonts false 
  266.   /ASCII85EncodePages true 
  267. .dicttomark readonly
  268.  
  269. .dicttomark readonly def
  270.  
  271. % ---------------- End of predefined configurations ---------------- %
  272.  
  273. % Set optimizations for converting PostScript to PDF.
  274. % The ps2pdf* scripts invoke this.
  275. /.setpdfwrite {        % - .setpdfwrite -
  276.         % Set a large VM threshold to reduce garbage collection.
  277.   currentuserparams /VMThreshold get 3000000 .max setvmthreshold
  278. } bind def
  279.  
  280. % ---------------- pdfmark and DSC processing ---------------- %
  281.  
  282. /.write_small_positive_real  % <file> <real> .write_small_positive_real -
  283. { % The argument must be grater than 0 and must be strongly samller than 0.1.
  284.   % The conversion isn't simple due to the low (24 bits) precision 
  285.   % of the floating point arithmetics in Postscript.
  286.   % For best result we first use the 1e8 factor since its binary 
  287.   % representation 101111101011110000100000000 well rounds into 14 significant
  288.   % bits :         101111101011110000000000000 .
  289.   1 index (.) writestring
  290.   { dup 100000000 mul 
  291.     dup 10 mul 1 ge {
  292.       % Will need not greater than 0.1 due to a rounding below.
  293.       pop exit
  294.     } if
  295.     exch pop
  296.     1 index (00000000) writestring
  297.   } loop
  298.   % Now it is not smaller than 1e-9, use simple digitizing.
  299.   { dup 10 mul 
  300.     dup 10 mul 1 ge { 
  301.       pop exit 
  302.     } if
  303.     exch pop
  304.     1 index (0) writestring
  305.   } loop
  306.   % Now 0.01 <= n < 0.1, but rounding may give 0.1 .
  307.   % Convert to integer with 7 digits precision :
  308.   100000000 % precision factor 1e8       % f n r
  309.   dup 10 idiv 3 1 roll mul 0.5 add cvi   % f r' N
  310.   2 copy le {
  311.     % The rounding overflows, suppress it.
  312.     % Note it carries out an additional digit,
  313.     % that's why we needed <0.1 above.
  314.     pop pop (1) writestring
  315.   } {
  316.     % Didn't cary out, put 0.
  317.     2 index (0) writestring
  318.     exch                                 % f N r
  319.     % Continue the simple digitizing :
  320.     { 10 idiv dup                        % f N r' r'
  321.       2 index exch idiv                  % f N r' d
  322.       (0123456789) exch 1 getinterval    % f N r' (d)
  323.       3 index exch writestring           % f N r'
  324.       dup 3 2 roll exch mod              % f r' N'
  325.       dup 0 eq { 
  326.         % Don't write trailing zeros.
  327.         exit 
  328.       } if
  329.       exch                               % f N' r'
  330.     } loop
  331.     pop pop pop
  332.   } ifelse
  333. } bind def
  334.  
  335. % Encode values to pass for the /pdfmark or /DSC pseudo-parameter.
  336. /.pdf===dict mark
  337.   /arraytype
  338.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  339.         % Stack: file obj left right
  340.       4 1 roll 2 index exch writestring () exch
  341.        { exch 2 index exch writestring
  342.      1 index exch pdf===only ( )
  343.        }
  344.       forall pop exch writestring
  345.    } bind
  346.   /packedarraytype 1 index
  347.   /dicttype
  348.    { 1 index (<<\n) writestring
  349.       { 2 index 3 -1 roll pdf===only 1 index ( ) writestring
  350.     1 index exch pdf===only dup (\n) writestring
  351.       }
  352.      forall (>>) writestring
  353.    } bind
  354.   /nametype {
  355.     % If the name string includes any non-regular characters,
  356.     % write it with two preceding and one following null character(s).
  357.     % (Null characters in the name itself are not allowed.)
  358.     % This non-standard escape convention is required for passing names
  359.     % that include non-regular characters, because PostScript provides
  360.     % no way to do this.  The pdf_scan_token procedure in the C code of
  361.     % the pdfwrite driver is currently the only place that recognizes
  362.     % this convention.
  363.     % Note that \004 may be self-delimiting in gs, but is not in standard PS.
  364.     dup .namestring (\000\004\011\012\014\015 %()/<>[]{}) .stringbreak null ne {
  365.       dup .namestring (\000) .stringbreak null ne {
  366.     /rangecheck signalerror
  367.       } if
  368.       1 index <0000> writestring 1 index exch write===only 0 write
  369.     } {
  370.       write===only
  371.     } ifelse
  372.   } bind
  373.   /realtype {
  374.     % Prevent using floating point format - see Bug 688167.
  375.     dup dup 0 lt { neg } if 0.01 lt {
  376.       dup 0 eq {
  377.         pop (0) writestring
  378.       } {
  379.         dup 0 lt {
  380.           1 index (-) writestring neg
  381.         } if
  382.         .write_small_positive_real
  383.       } ifelse
  384.     } {
  385.       write===only
  386.     } ifelse
  387.   } bind
  388. .dicttomark readonly def
  389. /pdf===only {    % <file> <obj> pdf===only -
  390.   .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
  391. } bind def
  392. /.pdfcvbuf 30 string def    % enough for most arguments
  393. userdict /.pdfcvstring () put
  394. /.pdfcvs {        % <obj> .pdfcvs <string>
  395.   currentglobal exch false .setglobal
  396.   /.pdfcvstring () store
  397.         % We can't handle long values yet.
  398.   { pop dup length 0 eq { pop } {
  399.       /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
  400.     } ifelse //.pdfcvbuf
  401.   } /NullEncode filter dup 3 -1 roll pdf===only
  402.   closefile
  403.   .setglobal .pdfcvstring
  404. } bind def
  405.  
  406. % Redefine pdfmark to pass the data to the driver.
  407. % We use a pseudo-parameter named /pdfmark whose value is an array:
  408. %    /key1 (value1) ... (CTM) /type
  409. /.pdfputparams {    % -mark- <key1> <value1> ... .pdfputparams <result...>
  410.   currentdevice null false counttomark 1 add 3 roll
  411.         % Don't allow the page device to get cleared....
  412.   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
  413. } bind def
  414. % Convert relevant operands to strings in an array.
  415. /.pdfcvsloop {        % -mark- values ... markname start step .pdfcvsloop
  416.             %   [values ... ctm markname]
  417.    matrix currentmatrix .pdfcvs 4 1 roll
  418.    counttomark 1 add 2 roll 
  419.    counttomark .localvmarray astore exch pop
  420.    3 1 roll
  421.             % Stack: values start step
  422.    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  423. } bind def
  424. /.pdfcvsall {        % -mark- values ... markname .pdfcvsall <<same>>
  425.   0 1 .pdfcvsloop
  426. } bind def
  427. /.pdfcvseven {        % -mark- key value ... markname .pdfcvseven <<same>>
  428.   1 2 .pdfcvsloop
  429. } bind def
  430. /.pdfcvsnone {        % -mark- values ... markname .pdfcvsnone <<same>>
  431.   100000 1 .pdfcvsloop
  432. } bind def
  433. /.pdfcvsfirst {        % -mark- first values ... markname .pdfcvsfirst<<same>>
  434.   .pdfcvsnone
  435.   dup 0 2 copy get .pdfcvs put
  436. } bind def
  437. % The procedures in the following dictionary are called with the entire
  438. % pdfmark operand list (including the pdfmark name) on the stack;
  439. % they may modify this ad lib.  They must call .pdfcvsxxx.
  440. /.pdfmarkparams mark
  441.     % Unpack a dictionary for PUT, and don't convert stream data.
  442.   /PUT {
  443.     counttomark 3 eq {
  444.       1 index type /dicttype eq {
  445.     pop { } forall /.PUTDICT .pdfcvsall
  446.       } {
  447.     pop dup type /filetype eq {
  448.         % Read the file into a sequence of strings.
  449.         % This isn't great, but it's simple.
  450.       {
  451.         dup 64000 string readstring not { exch exit } if
  452.         exch
  453.       } loop closefile
  454.     } if
  455.     /.PUTSTREAM .pdfcvsfirst
  456.       } ifelse
  457.     } {
  458.       .pdfcvsall
  459.     } ifelse
  460.   } bind
  461.     % Unpack the array for PUTINTERVAL.
  462.   /PUTINTERVAL {
  463.     pop aload pop /.PUTINTERVAL .pdfcvsall
  464.   } bind
  465. .dicttomark readonly def
  466. /.pdfparamerror {    % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
  467.     counttomark 4 add 2 roll cleartomark pop pop pop
  468.     .systemvar exch signalerror
  469. } bind def
  470. /pdfmark {        % -mark- <key> <value> ... <markname> pdfmark -
  471.   dup /SP eq {
  472.     % A hack for synchronizing the clipping path.
  473.     gsave 
  474.     [1 0 0 1 0 0] setmatrix 0 setlinewidth
  475.     newpath -3 -3 moveto closepath stroke % Paints outside the device bbox.
  476.     grestore
  477.   } if
  478.   dup /PS eq systemdict /PDFX .knownget not { false } if 
  479.              systemdict /PDFA .knownget not { false } if or and {
  480.     % Execute it since PDF/X doesn't allow to embed it.
  481.     pop
  482.     { dup mark eq {
  483.         pop exit
  484.       } if
  485.       1 index /DataSource eq {
  486.         exch pop
  487.         cvx exec
  488.       } {
  489.         pop pop
  490.       } ifelse
  491.     } loop
  492.   } {
  493.     counttomark 1 add copy
  494.     //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
  495.     mark /pdfmark 3 -1 roll .pdfputparams
  496.     dup type /booleantype ne {
  497.       /pdfmark .pdfparamerror
  498.     } if cleartomark
  499.   } ifelse
  500. } odef
  501. userdict /pdfmark .undef
  502. currentdict /.pdfmarkparams .undef
  503.  
  504.  
  505. %    <dict> .hook_DSC_Creator -
  506. /.pdf_hook_DSC_Creator
  507. {
  508.   % If the Creator is PScript5.dll, disable the 32 /FontType resource for
  509.   % handling GlyphNames2Unicode. Since /FontType category can't redefine,
  510.   % we can do only with redefining the operator 'resourcestatus'.
  511.   currentdevice .devicename /pdfwrite eq {
  512.     /Creator .knownget {
  513.       (PScript5.dll) search {
  514.         pop pop
  515.         systemdict /resourcestatus dup
  516.         { dup /FontType eq 2 index 32 eq and {
  517.             pop pop false
  518.           } {
  519.             resourcestatus
  520.           } ifelse
  521.         } bind .makeoperator .forceput
  522.       } if
  523.       pop
  524.     } if
  525.   } {
  526.     pop
  527.   } ifelse
  528. } 
  529. bind def
  530.  
  531. % Use the DSC processing hook to pass DSC comments to the driver.
  532. % We use a pseudo-parameter named DSC whose value is an array:
  533. %    /key1 (value1) ... /type
  534. /.pdfdsc_dict 2 dict def
  535. /.pdfdsc {    % <file> <DSC string> <dsc dict> [<prev proc>] .pdfdsc -
  536.   0 get dup null ne { 4 copy exch pop exec pop } { pop } ifelse 3 -1 roll pop
  537.         % Stack: <dsc string> <dsc dict>
  538.   20 .localvmdict 1 index { 3 copy put pop pop } forall
  539.   3 -1 roll .parse_dsc_comments    % <dsc dict> <dict> <type>
  540.   1 index //.pdf_hook_DSC_Creator exec
  541.   dup /NOP ne 2 index length 1 gt or {    % Skip unparsed comments
  542.     PDFWRDEBUG { (**** DSC comment: ) print dup == 1 index === flush } if
  543.     exch mark 4 1 roll {
  544.         % mark <key1> <value1> ... <dsc dict> <type> <key> <value>
  545.       3 index 2 index known {    % Skip the DSC_struct entry
  546.         pop pop
  547.       } {
  548.         .pdfcvs 4 -2 roll
  549.       } ifelse
  550.     } forall exch pop counttomark .localvmarray astore
  551.     mark /DSC 3 -1 roll .pdfputparams
  552.     dup type /booleantype ne {
  553.       /DSC .pdfparamerror
  554.     } {
  555.       cleartomark
  556.     } ifelse
  557.   } {
  558.     pop pop pop
  559.   } ifelse
  560. } bind def
  561. currentdict /.pdf_hook_DSC_Creator undef
  562. /.initialize_dsc_parser where {
  563.   pop
  564.   3000 % priority 
  565.   {
  566.     currentglobal true setglobal
  567.     2 dict dup .initialize_dsc_parser readonly
  568.     currentuserparams /ProcessDSCComment get
  569.     1 array astore    % in case the value is executable
  570.     //.pdfdsc /exec load 4 array astore cvx readonly
  571.     << /ProcessDSCComment 3 -1 roll >> setuserparams
  572.     setglobal
  573.   } bind .schedule_init
  574. } if
  575.  
  576. % ---------------- {set,current}distillerparams ---------------- %
  577.  
  578. % Define setdistillerparams / currentdistillerparams.
  579. % Distiller parameters are currently treated as device parameters.
  580. /.distillerparamkeys mark
  581.         % General parameters -- all distillers
  582.   /ASCII85EncodePages { }
  583.   /AutoRotatePages { }
  584.   /Binding { }
  585.   /CompressPages { }
  586.   /DefaultRenderingIntent { }
  587.   /DetectBlends { }
  588.   /DoThumbnails { }
  589.   /ImageMemory { }
  590.   /LockDistillerParams { }
  591.   /LZWEncodePages { }
  592.   /OPM { }
  593.   /PreserveHalftoneInfo { }
  594.   /PreserveOPIComments { }
  595.   /PreserveOverprintSettings { }
  596.   /TransferFunctionInfo { }
  597.   /UCRandBGInfo { }
  598.   /UseFlateCompression { }
  599.         % General parameters -- PDF writer
  600.         % StartPage and EndPage are renamed because EndPage
  601.         % clashes with a page device parameter.
  602.   /CoreDistVersion { }
  603.   /CompatibilityLevel { }
  604.         % ****** NOTE: StartPage and EndPage are disabled because
  605.         % ****** EndPage clashes with a page device parameter.
  606. %  /EndPage { exch pop /PDFEndPage exch }
  607.     /PDFEndPage { pop pop }
  608. %  /StartPage { exch pop /PDFStartPage exch }
  609.     /PDFStartPage { pop pop }
  610.   /Optimize { }
  611.   /ParseDSCCommentsForDocInfo { }
  612.   /ParseDSCComments { }
  613.   /EmitDSCWarnings { }
  614.   /CreateJobTicket { }
  615.   /PreserveEPSInfo { }
  616.   /AutoPositionEPSFiles { }
  617.   /PreserveCopyPage { }
  618.   /UsePrologue { }
  619.   /OffOptimizations { }
  620.           % PDF/X parameters
  621.   /PDFXTrimBoxToMediaBoxOffset { }
  622.   /PDFXSetBleedBoxToMediaBox { }
  623.   /PDFXBleedBoxToTrimBoxOffset { }
  624.         % Color sampled image parameters
  625.   /ColorACSImageDict { }
  626.   /AntiAliasColorImages { }
  627.   /AutoFilterColorImages { }
  628.   /ColorImageDepth { }
  629.   /ColorImageDict { }
  630.   /DownsampleColorImages { }
  631.   /ColorImageDownsampleThreshold { }
  632.   /ColorImageDownsampleType { }
  633.   /EncodeColorImages { }
  634.   /ColorImageFilter { }
  635.   /ColorImageResolution { }
  636.         % Color processing parameters
  637.   /CalCMYKProfile { }
  638.   /CalGrayProfile { }
  639.   /CalRGBProfile { }
  640.   /sRGBProfile { }
  641.   /ColorConversionStrategy { }
  642.   /ConvertCMYKImagesToRGB { }
  643.   /ConvertImagesToIndexed { }
  644.         % Grayscale sampled image parameters
  645.   /GrayACSImageDict { }
  646.   /AntiAliasGrayImages { }
  647.   /AutoFilterGrayImages { }
  648.   /GrayImageDepth { }
  649.   /GrayImageDict { }
  650.   /DownsampleGrayImages { }
  651.   /GrayImageDownsampleThreshold { }
  652.   /GrayImageDownsampleType { }
  653.   /EncodeGrayImages { }
  654.   /GrayImageFilter { }
  655.   /GrayImageResolution { }
  656.         % Monochrome sampled image parameters
  657.   /AntiAliasMonoImages { }
  658.   /MonoImageDepth { }
  659.   /MonoImageDict { }
  660.   /DownsampleMonoImages { }
  661.   /MonoImageDownsampleThreshold { }
  662.   /MonoImageDownsampleType { }
  663.   /EncodeMonoImages { }
  664.   /MonoImageFilter { }
  665.   /MonoImageResolution { }
  666.         % Font embedding parameters
  667.   /AlwaysEmbed
  668.    { dup length 0 gt
  669.       { dup 0 get false eq
  670.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  671.          } if
  672.       } if
  673.    }
  674.   /NeverEmbed
  675.    { dup length 0 gt
  676.       { dup 0 get false eq
  677.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  678.          } if
  679.       } if
  680.    }
  681.   /CannotEmbedFontPolicy { }
  682.   /EmbedAllFonts { }
  683.   /MaxSubsetPct { }
  684.   /SubsetFonts { }
  685.   /DSCEncodingToUnicode { }
  686. .dicttomark readonly def
  687. /.distillerdevice
  688.  { currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or
  689.     { currentdevice }
  690.     { /pdfwrite finddevice }
  691.    ifelse
  692.  } bind def
  693.  
  694. % Some badly designed PostScript files only expect the current/set
  695. % distillerparams operators to exist in a distiller. Since we have
  696. % this as a runtime option, we enable these operators IFF the
  697. % currentdevice is pdfwrite. Also, we mask their existence in 
  698. % systemdict so that 'where' and 'known' don't show them unless
  699. % the currentdevice is pdfwrite.
  700. /.setdistillerparams {        % <dict> setdistillerparams -
  701.   .distillerdevice //null false mark 4 index {
  702.     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
  703.   } forall .putdeviceparamsonly
  704.   dup type /booleantype ne {
  705.     /setdistillerparams .pdfparamerror
  706.   } {
  707.     pop pop pop
  708.   } ifelse
  709. } odef
  710. /.currentdistillerparams {    % - currentdistillerparams <dict>
  711.   .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  712.         % Patch StartPage and EndPage
  713.         % ****** NOTE: StartPage and EndPage are disabled because
  714.         % ****** EndPage clashes with a page device parameter.
  715. %  begin /StartPage PDFStartPage /EndPage PDFEndPage
  716. %  currentdict dup /PDFStartPage undef /PDFEndPage undef
  717. %  def def currentdict end
  718. } odef
  719. /setdistillerparams {
  720.   currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and {
  721.     /setdistillerparams /undefined signalerror
  722.   } if
  723.   .setdistillerparams
  724. } bind odef
  725. /currentdistillerparams {
  726.   currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and {
  727.     /currentdistillerparams /undefined signalerror
  728.   } if
  729.   .currentdistillerparams
  730. } bind odef
  731.  
  732. % Patch 'where' so that the distiller operators are only visible
  733. % if the pdfwrite device is the current one.
  734. { currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or{
  735.     .where
  736.   } {
  737.     .where pop dup //systemdict eq { pop false } { true } ifelse
  738.   } ifelse
  739. } bind
  740. { /currentdistillerparams /setdistillerparams /pdfmark }
  741. { .wheredict exch 2 index put } forall pop
  742.  
  743. % Patch 'known' to hide the systemdict version of distiller operators
  744. % unless the currentdevice is pdfwrite.
  745. /known {
  746.   /currentdistillerparams 1 index eq /setdistillerparams 2 index eq or 
  747.   /pdfmark 2 index eq or {
  748.     systemdict 2 index eq {    % only mask the operator in systemdict
  749.       known currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and { pop false } if
  750.     } {
  751.       known
  752.     } ifelse
  753.   } {
  754.     known
  755.   } ifelse
  756. } .bind odef
  757.  
  758. % Create a table for translation DSC comments into Unicode UTF-16
  759. /.make_DSC_translation_table {        % <encoding> .make_DSC_translation_table <array>
  760.   dup type /stringtype eq {
  761.     cvn
  762.   } if
  763.   dup type /nametype eq {
  764.     /Encoding findresource
  765.   } if
  766.   dup length array exch                   % [out] [in]
  767.   0 1 2 index length 1 sub {              % [out] [in] i
  768.     dup 2 index exch get                       % [out] [in] i n
  769.     dup dup null eq exch /.notdef eq or {
  770.       pop -1
  771.     } {
  772.       dup //AdobeGlyphList exch .knownget {  % [out] [in] i n c
  773.       dup type dup /arraytype eq exch /packedarraytype eq or {
  774.         0 get % fixme: using the 1st char
  775.       } if
  776.       exch pop                               % [out] [in] i c
  777.       } {                                    % [out] [in] i n
  778.         (DSCEncoding defines a character that is not in AdobeGlyphList : ) 
  779.         exch .namestring concatstrings =
  780.         /.make_DSC_translation_table cvx /undefined signalerror 
  781.       } ifelse
  782.     } ifelse
  783.     3 index                                  % [out] [in] i c [out]
  784.     3 1 roll put                             % [out] [in]
  785.   } for
  786.   pop                                        % [out]
  787. } bind def 
  788.  
  789. 1000 % priority
  790. {
  791.   % Note, this may not work if the initial device is not pdfwrite
  792.   % and may require the use of -dProvideUnicode on the command line.
  793.   currentdevice .devicename /pdfwrite eq
  794.   systemdict /ProvideUnicode .knownget not { false } if or {
  795.     currentglobal true setglobal
  796.     systemdict /.setupUnicodeDecoder known {
  797.       /Unicode /Decoding resourcestatus {
  798.         pop pop
  799.         /Unicode /Decoding findresource
  800.         .setupUnicodeDecoder
  801.       } {
  802.         QUIET not {
  803.           (WARNING: /Unicode /Decoding resource is not accessible but it is useful for generating ToUnicode CMap.) =
  804.         } if
  805.       } ifelse
  806.     } if
  807.     setglobal
  808.   } if
  809. } bind .schedule_init
  810.  
  811. 1010 % priority
  812. {
  813.     % Set a predefined configuration in the distiller device (pdfwrite)
  814.     /PDFSETTINGS where { 
  815.       pop /PDFSETTINGS load 
  816.     } { 
  817.       currentdevice .devicename /ps2write eq { /PSL2Printer } { /default } ifelse
  818.     } ifelse
  819.     .distillersettings exch get
  820.     % Don't override parameters defined on the command line.
  821.     dup length .distillercommon length add dict begin
  822.     .distillercommon 2 {
  823.       {
  824.         systemdict 2 index known { pop pop } { def } ifelse
  825.       } forall
  826.     } repeat
  827.     currentdevice .devicename /pdfwrite eq {
  828.       systemdict /PDFX known systemdict /PDFA known or {
  829.       /DSCEncoding where {
  830.           /DSCEncoding get .make_DSC_translation_table
  831.           /DSCEncodingToUnicode exch def 
  832.         } if
  833.       } if
  834.     } if
  835.     currentdict end .setdistillerparams
  836.     .distillerdevice //null false mark .putdeviceparams 
  837.     dup type /booleantype eq not { cleartomark pop } if pop pop
  838. } bind .schedule_init
  839.  
  840. % Set a path to library files (ps2write)
  841. .defaultdevicename /ps2write eq {
  842.   mark
  843.   /OPDFReadProcsetPath
  844.   systemdict /OPDFReadProcsetPath .knownget dup {   % check for a value on the command-line
  845.     1 index () eq {
  846.       (Configuration warning : empty OPDFReadProcsetPath, will use defaults.) =
  847.       systemdict /OPDFReadProcsetPath undef
  848.       pop pop false
  849.     } if
  850.   } if
  851.   not {                                             % if necessary, compute a default
  852.     mark
  853.     (gs_mgl_e.ps) (gs_mro_e.ps) (gs_agl.ps) (opdfread.ps) % Reverse order !
  854.     () counttomark 1 sub {
  855.       exch
  856.       .libfile { .filename } { false } ifelse not {
  857.         (Configuration error : library file opdfread.ps not found !) =
  858.         (opdfread.ps) /undefinedfilename signalerror
  859.       } if
  860.       .filenamelistseparator concatstrings concatstrings
  861.     } repeat
  862.     exch pop
  863.   } if
  864.   %stack: mark /OPDFReadProcsetPath <filelist>
  865.   /ps2write finddevice putdeviceprops pop           % set the default instance's procset path
  866. } if
  867.  
  868. 2000 % priority
  869. { % Note, this may not work if the initial device is not pdfwrite
  870.   currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or {
  871.     % Inform the device with initial graphic state. See gdev_pdf_fill_path.
  872.     newpath fill
  873.   } if
  874. } bind .schedule_init
  875.